home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / misc / PhoneCall20.lha / PhoneCall2.0 / Install_Deutsch < prev    next >
Text File  |  1995-07-11  |  8KB  |  317 lines
  1. ; $VER: Install_PhoneCall 2.1 (11.07.95)
  2.  
  3.  (complete 0)
  4.  (welcome)
  5.  
  6.  (set WrongKick "\nSie müssen mindestens\nAmigaOS 2.04\nhaben, wenn Sie PhoneCall benutzen möchten.")
  7.  
  8.  (set currentver (/ (getversion "SYS:Classes/Gadgets/textfield.gadget") 65536))
  9.  (set currentrev (BITAND (getversion "SYS:Classes/Gadgets/textfield.gadget") 65535))
  10.  (set myver      (/ (getversion "Classes/Gadgets/textfield.gadget") 65536))
  11.  (set myrev      (BITAND (getversion "Classes/Gadgets/textfield.gadget") 65535))
  12.  
  13.  (if (< (/ (getversion) 65536) 37)
  14.    (abort WrongKick)
  15.  )
  16.  
  17. (set pcalldest
  18.     (askdir
  19.         (prompt "Wählen Sie wohin `PhoneCall' installiert werden soll.\nEin Verzeichnis "PhoneCall" wird automatisch angelegt.")
  20.         (help @askdir-help)
  21.         (default @default-dest)
  22.     )
  23. )
  24.  
  25. (set pcalldir             (tackon pcalldest "PhoneCall"))
  26. (set @default-dest        pcalldir)
  27. (set pcalldata            (tackon pcalldir "PhoneCall.pcd"))
  28. (set docdir               (tackon pcalldir "Anleitung"))
  29. (set oldvernum 0)
  30.  
  31. ;**
  32. ;**  Create directory/Check if there is already a copy installed
  33. ;**
  34.  
  35. (complete 10)
  36.  
  37. (set extype (exists pcalldir))
  38. (if (= extype 1) (abort "Es ist bereits eine Datei mit dem Namen \"PhoneCall\" vorhanden."))
  39. (if (= extype 2)
  40.     (
  41.         (if (exists (tackon pcalldir "PhoneCall"))
  42.             (
  43.                 (set oldvernum (getversion (tackon pcalldir "PhoneCall")))
  44.                 (message
  45.                     (cat "\n\nEine Kopie von `PhoneCall' existiert bereits. "
  46.                          "Wenn Sie fortfahren, wird diese erneuert. Weitere Dateien "
  47.                          "werden überschrieben (Ihr Telefonbuch bleibt unverändert)."
  48.                     )
  49.                 )
  50.             )
  51.         )
  52.     )
  53.     (makedir pcalldir)
  54. )
  55. (makedir docdir (infos))
  56.  
  57. (copyfiles
  58.      (source "def_Icons/PhoneCall.info")
  59.      (dest pcalldest)
  60.      (files)
  61. )
  62.  
  63. (set oldver (/ oldvernum 65536))
  64. (set oldrev (- oldvernum (* oldver 65536) ) )
  65.  
  66. (complete 20)
  67.  
  68.  (set destdir
  69.     (askdir (prompt "Wählen Sie ein Verzeichnis in welches das Hauptprogramm\n'PhoneCall' installiert werden soll."
  70.                     "\nz.B. WBStartup ...")
  71.                     (help @askdir-help)
  72.                     (default pcalldir)
  73.     )
  74.  )
  75.  
  76. (complete 25)
  77.  
  78.         (copyfiles
  79.                 (prompt "\nKopiere PhoneCall zu "destdir" ...\n")
  80.                 (source "PhoneCall")
  81.                 (dest destdir)
  82.                 (files)
  83.         )
  84.  
  85. (complete 30)
  86.  
  87. (set iconchoice
  88.     (askchoice
  89.         (prompt "Wählen Sie das Programm-Icon aus, welches Sie installieren möchten.\n")
  90.         (choices "MagicWB Standard Icon"
  91.                  "MagicWB Icon von Jodel (Schneider)"
  92.                  "ROM Icon (grau) Roman Patzner"
  93.                  "ROM Icon (brau) Roman Patzner"
  94.                  "NewIcon"
  95.                  )
  96.         (help @askoptions-help)
  97.     )
  98. )
  99.  
  100. (complete 35)
  101.  
  102. (if (= iconchoice 0)
  103.     (
  104.         (copyfiles
  105.             (prompt "Installiere das MagicWB Standard Icon...")
  106.             (source "def_Icons/PhoneCall_MWB.info")
  107.             (newname "PhoneCall.info")
  108.             (dest destdir)
  109.             (help @copyfiles-help)
  110.             (files)
  111.         )
  112.     )
  113. )
  114.  
  115. (complete 35)
  116.  
  117. (if (= iconchoice 1)
  118.     (
  119.         (copyfiles
  120.                 (prompt "Installiere das MagicWB Icon von Jodel (Schneider)...")
  121.                 (source "def_Icons/PhoneCall_JODEL.info")
  122.                 (newname "PhoneCall.info")
  123.                 (dest destdir)
  124.                 (help @copyfiles-help)
  125.                 (files)
  126.         )
  127.     )
  128. )
  129.  
  130. (complete 35)
  131.  
  132. (if (= iconchoice 2)
  133.     (
  134.         (copyfiles
  135.                 (prompt "Installiere das ROM Icon (grau)...")
  136.                 (source "def_Icons/PhoneCall_ROM2.info")
  137.                 (newname "PhoneCall.info")
  138.                 (dest destdir)
  139.                 (help @copyfiles-help)
  140.                 (files)
  141.         )
  142.     )
  143. )
  144.  
  145. (complete 35)
  146.  
  147. (if (= iconchoice 3)
  148.     (
  149.         (copyfiles
  150.                 (prompt "Installiere das ROM Icon (braun)...")
  151.                 (source "def_Icons/PhoneCall_ROM1.info")
  152.                 (newname "PhoneCall.info")
  153.                 (dest destdir)
  154.                 (help @copyfiles-help)
  155.                 (files)
  156.         )
  157.     )
  158. )
  159.  
  160. (complete 35)
  161.  
  162. (if (= iconchoice 4)
  163.     (
  164.         (copyfiles
  165.                 (prompt "Installiere das NewIcons Icon...")
  166.                 (source "def_Icons/PhoneCall_NEWICON.info")
  167.                 (newname "PhoneCall.info")
  168.                 (dest destdir)
  169.                 (help @copyfiles-help)
  170.                 (files)
  171.         )
  172.     )
  173. )
  174.  
  175. (complete 40)
  176.  
  177. (set docchoice
  178.     (askoptions
  179.         (prompt "Möchten Sie die Dokumentationen zum Programm installieren ?\n\nWählen Sie die Dokumentation(en) aus, die Sie installieren möchten.\n")
  180.         (choices "deutsches Guidefile"
  181.                  "deutsches DVI-File"
  182.                  "deutsches Textfile (ASCII)")
  183.         (help @askoptions-help)
  184.     )
  185. )
  186.  
  187. (complete 50)
  188.  
  189. (if (<> 0 (BITAND docchoice 1))
  190.     (
  191.         (copyfiles
  192.             (prompt "Installing AmigaGuide manual...")
  193.             (source "Document/deutsch/PhoneCall.guide")
  194.             (dest docdir)
  195.             (help @copyfiles-help)
  196.             (infos)
  197.         )
  198.     )
  199. )
  200.  
  201. (complete 55)
  202.  
  203. (if (<> 0 (BITAND docchoice 2))
  204.     (
  205.         (copyfiles
  206.                 (prompt "Intstalliere DVI Anleitung...")
  207.                 (source "Document/deutsch/PhoneCall.DVI")
  208.                 (dest docdir)
  209.                 (help @copyfiles-help)
  210.                 (infos)
  211.         )
  212.     )
  213. )
  214.  
  215. (complete 60)
  216.  
  217. (if (<> 0 (BITAND docchoice 4))
  218.     (
  219.         (copyfiles
  220.                 (prompt "Installiere ASCII Anleitung...")
  221.                 (source "Document/deutsch/PhoneCall.dok")
  222.                 (dest docdir)
  223.                 (help @copyfiles-help)
  224.                 (infos)
  225.         )
  226.     )
  227. )
  228.  
  229. (complete 70)
  230.  
  231. (if (AND (NOT (= (getassign "Locale") "")) (exists "libs:locale.library"))
  232.   (
  233.     (set language
  234.        (askoptions
  235.          (prompt "Welche Sprache(n) möchten Sie installieren?")
  236.          (choices "Deutsch" )
  237.  
  238.          (help "Wenn Sie eine Version des AmigaOS besitzen, "
  239.                "die keine Lokalisierung unterstützt, "
  240.                "installieren Sie bitte keine Sprache.\n\n "
  241.                "Die in PhoneCall eingebaute englische Sprache "
  242.                "benötigt keinen Katalog! "
  243.         )
  244.      )
  245.   )
  246.  
  247.   (if (IN language 0)
  248.     (
  249.        (copyfiles
  250.           (source "Catalogs/deutsch/PhoneCall.catalog")
  251.           (dest "Locale:catalogs/deutsch")
  252.           (prompt "Installiere deutschen Katalog für PhoneCall...")
  253.        )
  254.     )
  255.   )
  256.  )
  257. )
  258.  
  259. (complete 80)
  260.  
  261. (if (AND (NOT (= (getassign "Help") "")) (exists "libs:locale.library"))
  262.   (
  263.     (set helpfile
  264.        (askoptions
  265.          (prompt "Welche OnlineHilfe(n) wollen Sie installieren?")
  266.          (choices "Deutsch" )
  267.  
  268.          (help "Wenn Sie eine Version des AmigaOS besitzen, "
  269.                "die keine Lokalisierung unterstützt, "
  270.                "installieren Sie bitte keine Online-Hilfe.\n\n "
  271.         )
  272.      )
  273.   )
  274.  
  275.   (if (IN helpfile 0)
  276.     (
  277.        (copyfiles
  278.           (source "Document/deutsch/PhoneCall.guide")
  279.           (dest "Locale:help/deutsch")
  280.           (prompt "Installiere deutsche Online-Hilfe für PhoneCall...")
  281.        )
  282.     )
  283.   )
  284.  )
  285. )
  286.  
  287. (complete 85)
  288.  
  289.         (if(askbool
  290.                 (prompt "\nMöchten Sie das\n\nTextField.gadget Version "myver"."myrev"\n\nin das 'SYS:Classes/Gadgets' Verzeichnis installieren ?\n\n"
  291.                         "Die aktuelle Version ist "currentver"."currentrev"\n\n")
  292.                 (help "Installiert die mitgelieferte Version des TextField.gadget in das 'SYS:Classes/Gadgets' Verzeichnis, "
  293.                       "wenn Sie möchten.")
  294.                 (default 1))
  295.                 (copyfiles
  296.                         (prompt "\nKopiere das TextField.gadget...\n")
  297.                         (source "Classes/Gadgets/TextField.gadget")
  298.                         (dest   "SYS:Classes/Gadgets/")
  299.                         (files)
  300.                 )
  301.         )
  302.  
  303. (complete 90)
  304.  
  305. (set exdata (exists pcalldata))
  306.  
  307. (if (<> exdata 1)
  308.    (copyfiles
  309.            (prompt "\nKopiere eine PhoneCall BasisDatei...\n")
  310.            (source "PhoneCall.pcd")
  311.            (dest   pcalldir)
  312.            (files)
  313.    )
  314. )
  315.  
  316. (complete 100)
  317. (exit "Viel Spaß mit PhoneCall\nBitte unterstützen Sie die Idee der Shareware !")